100 Plus Great Games 2/100PLUSV2.BIN/games/WillowWisp.dxr/Internal_7_tab hot.ls

Text File | 2002-01-25 | 1.7 KB | 71 lines

property spriteNum, row, fp
global tableau, equal, currentsel, getlist, godlist, basecard, foundation, extras, dimpos

on beginSprite me
  row = determinerow()
  candd = [#one: 12, #two: 28, #thr: 44, #fou: 60, #fiv: 76, #six: 92, #sev: 108]
  fp = candd[row]
end

on determinerow me
  if spriteNum = 26 then
    return #one
  else
    if spriteNum = 42 then
      return #two
    else
      if spriteNum = 58 then
        return #thr
      else
        if spriteNum = 74 then
          return #fou
        else
          if spriteNum = 90 then
            return #fiv
          else
            if spriteNum = 106 then
              return #six
            else
              if spriteNum = 122 then
                return #sev
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on mouseEnter me
  if getlist <> VOID then
    if (tableau[row].getcardcount() < 14) and ((tableau[row].getcardcount() + extras.count) <= 14) then
      if tableau[row].getcardcount() > 0 then
        if extras.count = 0 then
          if getlist.getlastcard().rankvalue = (tableau[row].getlastcard().rankvalue - 1) then
            equal = 1
            godlist = tableau[row]
            currentsel = tableau[row].getlastcard().spnum + 1
          end if
        else
          if getlist.cards[dimpos].rankvalue = (tableau[row].getlastcard().rankvalue - 1) then
            equal = 1
            godlist = tableau[row]
            currentsel = tableau[row].getlastcard().spnum + 1
          end if
        end if
      else
        equal = 1
        godlist = tableau[row]
        currentsel = fp
      end if
    end if
  end if
end

on mouseLeave me
  equal = 0
  currentsel = 0
  godlist = VOID
end